program t y p e c h a r ;
var
a , c , d : char ;
b : integer ;
begin
a := ’A’ ;
// armazena 65 na v a r i a v e l a , que e q u i v a l e a ’A’
b := ord ( ’A’ ) + 2 ; // obtem o c o d i g o ASCII de ’A’ ( 6 5 ) e a c r e s c e n t a 2
// o b s e r v e que b , que r e c e b e i s t o , eh um i n t e i r o
c := c h r ( b ) ;
// armazena em c o c a r a c t e r e c o r r e s p o n d e n t e ao
// v a l o r 67 em ASCII
d := #68;
writeln ( ’Variaveis : a=’ , a , ’ b=’ , b , ’ c=’ , c , ’ d=’ , d ) ;
// r e t o r n a a=A b=67 c=C
end .

